<?
	/* Se asegura que el archivo es incluido por el index */
		defined( 'LOAD_MODULE_ACTION' ) or die( 'No esta permitido el acceso directo a ' . __FILE__ );
	/* Cuando se hace el include del archivo automaticamente crea un objeto y lo guarda en una variable temporal */
		$this->oTmpObject = new Clase_frm( $this );

	class Clase_frm extends Frm
	{
	function setValue ( $ncClase )
		{
			$cSql = "SELECT ncClase, cdClase, cFisico, ncSubModulo, ncTipoClase, cArchivo, cDirectorio
								FROM stClase as Cla
								WHERE ncClase = $ncClase ";
			$aDatos = $this->oDatabase->getArray($cSql);
			$this->setFieldsArray ( $aDatos );
		}

	function Clase_frm( &$oModule )
		{
			$this->Frm ( $oModule );
		//Crea los Objetos de los campos de edicion
			$this->aFields['ncClase'] 		= new Input( "Codigo",  "ncClase", '', false, true );
			$this->aFields['ncSubModulo'] = new InputList ( "SubModulo", "ncSubModulo" );
			$this->aFields['cFisico'] 		= new InputText ( "Fisico", "cFisico" );
			$this->aFields['cdClase'] 		= new InputText ( "Clase", "cdClase" );
			$this->aFields['ncTipoClase'] = new InputList ( "Tipo", "ncTipoClase" );
			$this->aFields['cDirectorio'] = new InputText ( "Directorio", "cDirectorio" );
			$this->aFields['cArchivo'] 		= new InputText ( "Archivo", "cArchivo" );
			$this->oDatabase = openMetadataDB ( getParam('cPathModule') );
		}
	function initializeForm()
		{
			// Si viene el Ubicacion hace el retrieve
				if ( $this->isRetrievable() && $this->aFields['ncClase']->getValue() )
				{
					$this->setValue( $this->aFields['ncClase']->getValue() );
				}
			// Configura el Titulo
				$this->setLabel( "Clase" );
			return true;
		}
	function initializeField( $cField , &$oField )
		{
			switch ( $cField )
			{
				case 'cdClase':
					$oField->setMandatory( $this->isMandatory() );
					$oField->setLength(120);
				break;
				case 'ncSubModulo':
					$cSql = "SELECT ncSubModulo, cdSubModulo FROM stSubModulo ";
					$oField->setMatrix( $this->oDatabase->getMatrix( $cSql )  );
					$oField->setForm( $this );
					$oField->addActionArray ( 2, $this->oModule->getActionArray( AGREGAR_UN_SUBMODULO ) );
				break;
				case 'cFisico':
					$oField->setMandatory( $this->isMandatory() );
					$oField->setLength(60);
				break;
				case 'cDirectorio':
					$oField->setLength(40);
				break;
				case 'cArchivo':
					$oField->setLength(100);
				break;
				case 'ncTipoClase':
					$ncCategoriaClase = getParam('ncCategoriaClase');
					$cSql = "SELECT ncTipoClase, cdTipoClase FROM scTipoClase";
					if ( $ncCategoriaClase  ) $cSql .= " WHERE ncCategoriaClase  =$ncCategoriaClase ";
					$oField->setMatrix( $this->oDatabase->getMatrix( $cSql )  );
				break;
			}
 		}
	}
?>
